home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / epsilon < prev    next >
Text File  |  1994-09-20  |  145b  |  14 lines
  1. //
  2. //  Compute machine epsilon
  3. //
  4.  
  5. epsilon = function() 
  6. {
  7.   eps = 1.0;
  8.   while((eps + 1.0) != 1.0) 
  9.   {
  10.     eps = eps/2.0;
  11.   }
  12.   return eps;
  13. };
  14.